← Index
NYTProf Performance Profile   
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:12:56 2013

Filename(eval 1136)[/usr/share/perl/5.10/CGI.pm:869]
StatementsExecuted 16 statements in 33µs
Eval Invoked At/usr/share/perl/5.10/CGI.pm line 869
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
42230µs71µsCGI::::httpCGI::http
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1
# spent 71µs (30+41) within CGI::http which was called 4 times, avg 18µs/call: # 3 times (19µs+25µs) by CGI::url at line 25 of (eval 1127)[CGI.pm:869], avg 15µs/call # once (11µs+16µs) by CGI::url at line 832 of CGI.pm
package CGI; sub http {
248µs438µs my ($self,$parameter) = self_or_CGI(@_);
# spent 38µs making 4 calls to CGI::self_or_CGI, avg 9µs/call
3410µs43µs return $ENV{$parameter} if $parameter=~/^HTTP/;
# spent 3µs making 4 calls to CGI::CORE:match, avg 675ns/call
442µs $parameter =~ tr/-/_/;
5413µs return $ENV{"HTTP_\U$parameter\E"} if $parameter;
6 my(@p);
7 for (keys %ENV) {
8 push(@p,$_) if /^HTTP/;
9 }
10 return @p;
11}
12
13;